From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 21 Apr 2004 22:37:16 +0000 (+0000)
Subject: (compilation-mode-font-lock-keywords):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22996
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=899d3c8206944fedfe09e4215c54a7421600344c;p=emacs.git

(compilation-mode-font-lock-keywords):
Minor sanity check on the `hyperlink' slot.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 00b9830516f..9aaa992ca76 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -703,6 +703,9 @@ FILE should be (FILENAME . DIRNAME) or nil."
 			     ,(if col `(match-string ,col)))))
 		(,file compilation-error-face t))
 
+	    (unless (or (null (nth 5 item)) (integerp (nth 5 item)))
+	      (error "HYPERLINK should be an integer: %s" (nth 5 item)))
+
 	    `(,(nth 0 item)
 
 	      ,@(when (integerp file)